structure ST = 
struct
  exception HOGE
end
exception FOO
exception BAR = FOO
